10 FOR I=0 TO 18: READ A: POKE 828+I,A: NEXT
20 INPUT"START";BS: POKE 831,INT(BS/256)
30 POKE 829,BS-(INT(BS/256)*256)
40 INPUT"END";BE: POKE 839,INT(BE/256)
50 POKE 837,BE-(INT(BE/256)*256):SYS828
60 DATA 162,0,160,0,24,32,156,255
70 DATA 162,0,160,0,24,32,153,255
80 DATA 108,0,160